home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / powerd0.06 / lib / startup_dos.ass < prev    next >
Text File  |  1999-11-30  |  441b  |  22 lines
  1. _START    move.l    $4.w,a6
  2.     lea    (DOSName,pc),a1
  3.     moveq    #37,d0
  4.     jsr    (-552,a6)        ; OpenLibrary()
  5.     move.l    d0,_DOSBase
  6.     beq.s    .FINISH
  7.  
  8.     xref    _main
  9.     bsr    _main        ; a6 is stored
  10.     move.l    d0,d2
  11.  
  12.     move.l    _DOSBase,a1
  13.     jsr    (-414,a6)        ; CloseLibrary()
  14. .FINISH    move.l    d2,d0
  15.     rts
  16. ****************************************
  17.     xdef    _DOSBase
  18. ****************************************
  19. _DOSBase    dc.l    0
  20. ****************************************
  21. DOSName    dc.b    'dos.library',0
  22.